(FILECREATED "20-AUG-74 23:43:13" AIRF 1707  

     changes to:  OLD:PREADLIST, DIALOG

     previous date: "19-AUG-74 21:14:06")


  (LISPXPRINT (QUOTE AIRFVARS)
	      T)
  (RPAQQ AIRFVARS (DIALOG OLD:PREADLIST))
  (RPAQQ DIALOG ((INSERT THIS: DAY 3 FLT 2)
	  (INSERT THIS: DAY 4 FLT 2 ARV 3)
	  (INSERT THIS: FLT 2 ARV 1 LV 3)
	  (INSERT THIS: FLT 3 ARV 3 DAY 3 LV 4)
	  (FLT 2)
	  (DAY 3)
	  (INSERT THIS: DAY 4 FLT 5 ARV 3 LV 315)
	  (ARV 3 DAY 4)
	  (REMOVE THIS: DAY 4)
	  (REMOVE THIS FLT 3 DAY 3 LV 4 ARV 3)
	  NIL
	  (INSERT PLEASE DAY 1 PASSEN 2 PAID 2 FARE 3)
	  (PAID 3)
	  (PAID 2)
	  (INSERT THIS FLT 4 PASSEN 2 LV 3 ARV 6 FARE 40 PAID 2)
	  (PAID 2)
	  (REMOVE THIS: PAID 2)
	  (PAID 2)
	  NIL
	  (PLEASE STOP)
	  (STOP PLEASE!!)))
  (RPAQQ OLD:PREADLIST
	 (0 (WRITE A PROGRAM WHICH KEEPS TRACK OF AIRLINE RESERVATIONS)
	    AIR
	    (DAY LV ARV FLT PASSEN SEAT TO FROM FARE PAID)
	    DAY LV ARV FLT PASSEN SEAT TO FROM FARE PAID YES NIL NIL NO T NIL YESNO (A D)
	    NIL NIL NO T YESNO (A B)
	    NIL NIL YESNO YES (ALL BUT THE FIRST 2 ELEMENTS OF ARG1)
	    (THE FIRST ELEMENT OF ARG1 EQUALS INSERT)
	    YES NIL NIL YESNO YES (ALL BUT THE FIRST 2 ELEMENTS OF ARG1 MATCHES SOMETHING IN AIRLINE:RESERVATION:SYSTEM)
	    (THE FIRST ELEMENT OF ARG1 EQUALS REMOVE)
	    YES YESNO 1 NIL NO T YESNO 1 NIL T NIL YESNO (THE FIRST ELEMENT OF REQUEST EQUALS STOP)
	    YES NO T T T T 2
	    (CHANGE AS FOLLOWS: DELETE EVERYTHING IN AIRLINE:RESERVATION:SYSTEM MATCHING ALL BUT THE FIRST 2 ELEMENTS 
		    OF REQUEST INSTEADOF ALL BUT THE FIRST 2 ELEMENTS OF REQUEST MATCHES SOMETHING IN 
		    AIRLINE:RESERVATION:SYSTEM)))
(PROGN (QUOTE JUSTEVALUATE)
(FILEMAP (NIL)))
STOP